home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 April / 1994-04b.d64 / birthday sim (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  281b  |  12 lines
  1. 5 print"[147][144]
  2. 10 [143] matching birthdays simulator
  3. 20 x[178][187]([171]ti[173]91):[134] b(365):i[178]1:t[178]0:c[178]0
  4. 30 x[178][181]([187](1)[172]365[170]1)
  5. 35 [153] x,
  6. 40 [139] b(x)[178]1 [167] 60
  7. 50 b(x)[178]1:i[178]i[170]1:[137] 30
  8. 60 t[178]t[170]i:c[178]c[170]1:a[178][181](t[173]c)
  9. 70 [153]:[153]"run #"c,"people until match:"i,,"avg people (all runs)"a
  10. 80 [129] i[178]1 [164] 365:b(i)[178]0:[130]
  11. 90 i[178]1:[137]30
  12.